How Would You Survive?/How Would You Survive (1995)(Grolier)[Mac-PC].iso/mac/VIKINGW.DIR/01657_Script_Sickness

Text File | 1995-09-12 | 7KB | 260 lines

global gbeenclicked, gQuest

on VSicknessRollovers1
  set gbeenclicked = 0
  if (not(CheckClickedStatus(gQuest))) then
    if rollover(6) then
      repeat while rollover(6)
        VikingCursor
        puppetsprite 8, true
        set the locH of sprite 8 to 307
        set the locV of sprite 8 to 304
        updatestage
        if (the mousedown) then
          set gbeenclicked = 1
        else
          --the mouse is up
          if gbeenclicked = 1 then
            set the locH of sprite 8 to 907
            updatestage
            repeat while gbeenclicked = 1
              John 6, 882, 3, "SV380200.AIF", 1
            end repeat
          end if
        end if
      end repeat
      set the locH of sprite 8 to 907
      puppetsprite 8, false
      updatestage
    else
      if rollover(9) then
        ArrowCursor
        repeat while rollover(9)
          set the locH of sprite 10 to 307
          set the locV of sprite 10 to 325
          updatestage
        end repeat
        set the locH of sprite 10 to 999
        updatestage
      else
        if rollover(11) then
          ArrowCursor
          repeat while rollover(11)
            set the locH of sprite 12 to 206
            set the locV of sprite 12 to 349
            updatestage
          end repeat
          set the locH of sprite 12 to 999
          updatestage
        else
          if rollover(13) then
            ArrowCursor
            repeat while rollover(13)
              set the locH of sprite 14 to 296
              set the locV of sprite 14 to 360
              updatestage
            end repeat
            set the locH of sprite 14 to 999
            updatestage
          else
            if rollover(15) then
              ArrowCursor
              repeat while rollover(15)
                set the locH of sprite 28 to 486
                set the locV of sprite 28 to 243
                updatestage
              end repeat
              set the locH of sprite 28 to 999
              updatestage
            else
              if rollover(16) then
                ArrowCursor
                repeat while rollover(16)
                  set the locH of sprite 17 to 484
                  set the locV of sprite 17 to 352
                  updatestage
                end repeat
                set the locH of sprite 17 to 999
                updatestage
              else
                if rollover(40) then
                  HandCursor
                else
                  if rollover(41) then
                    HandCursor
                  else
                    if rollover(42) then
                      HandCursor
                    else
                      ArrowCursor
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  RandomQuestion(gQuest)
  return false
end

on VSicknessRollovers2
  set gbeenclicked = 0
  if (not(CheckClickedStatus(gQuest))) then
    if rollover(7) or rollover(8) or rollover(9) or rollover(10) or rollover(17) then
      repeat while rollover(7) or rollover(8) or rollover(9) or rollover(10) or rollover(17)
        VikingCursor
        puppetsprite 18, true
        set the locH of sprite 18 to 174
        set the locV of sprite 18 to 178
        updatestage
        if (the mousedown) then
          set gbeenclicked = 1
        else
          --the mouse is up
          if gbeenclicked = 1 then
            repeat while gbeenclicked = 1
              Bathing
            end repeat
          end if
        end if
      end repeat
      set the locH of sprite 18 to 999
      updatestage
      puppetsprite 18, false
    else
      if rollover(11) then
        ArrowCursor
        repeat while rollover(11)
          set the locH of sprite 12 to 251
          set the locV of sprite 12 to 325
          updatestage
        end repeat
        set the locH of sprite 12 to 999
        updatestage
      else
        if rollover(13) then
          ArrowCursor
          repeat while rollover(13)
            set the locH of sprite 14 to 251
            set the locV of sprite 14 to 379
            updatestage
          end repeat
          set the locH of sprite 14 to 999
          updatestage
        else
          if rollover(15) then
            ArrowCursor
            repeat while rollover(15)
              set the locH of sprite 16 to 357
              set the locV of sprite 16 to 224
              updatestage
            end repeat
            set the locH of sprite 16 to 999
            updatestage
          else
            if rollover(39) then
              HandCursor
            else
              if rollover(41) then
                HandCursor
              else
                if rollover(42) then
                  HandCursor
                else
                  ArrowCursor
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  RandomQuestion(gQuest)
end


on bathing
  ArrowCursor
  puppetsprite 7, true
  puppetsprite 8, true
  puppetsprite 9, true
  puppetsprite 10, true
  set gCast1 = the castnum of sprite 10
  set gcast2 = gcast1 + 1
  set count = 0
  puppetsound "SV380405.AIF (Main Anim.)"
  repeat while count < 3 and (the mouseUp)
    set the locH of sprite 7 to 302
    set the locV of sprite 7 to 110
    set the castnum of sprite 10 = gCast1
    set the locH of sprite 10 to 373
    set the locV of sprite 10 to 356
    updatestage
    wait .3

    set the locH of sprite 7 to -302
    set the locH of sprite 8 to 416
    set the locV of sprite 8 to 176
    set the locH of sprite 9 to 488
    set the locV of sprite 9 to 275
    set the castnum of sprite 10 = gCast2
    updatestage
    wait .3

    set the locH of sprite 8 to -416
    set the castnum of sprite 10 = gCast1
    updatestage
    wait .3


    set the locH of sprite 10 to -488
    set the locH of sprite 9 to -488
    updatestage
    wait .3

    set count = count + 1
  end repeat
  set the locH of sprite 10 to -488
  set the locH of sprite 9 to -488
  set the locH of sprite 7 to -302
  set the locH of sprite 8 to -416
  puppetsprite 7, false
  puppetsprite 8, false
  puppetsprite 9, false
  puppetsprite 10, false
  puppetsound 0
  updatestage
  set gBeenClicked = 0
end


on john whichsprite, whichCast, HowManyCast, whichsound, HowManyTimes
  ArrowCursor
  puppetsound whichsound
  set gSprite = whichsprite
  set gCast = whichCast
  set gEndCast = whichCast + (HowManyCast - 1)
  set the castNum of sprite gSprite = gCast
  set count = 0
  repeat while count < HowManyCast and (the MouseUp)
    set theCast = the castNum of sprite gSprite
    if thecast < gEndCast then
      set the castNum of sprite gSprite = theCast + 1
      updatestage
      wait 1.5
    end if
    set count = count + 1
  end repeat
  wait 2
  set the castnum of sprite whichsprite = gCast
  updatestage
  Puppetsound 0
  set gbeenclicked = 0
end